home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed25.d64 / exercise 7 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  140 lines
  1. 200 PRINT"[147][159]";:POKE53272,21:POKE53280,0:POKE53281,0
  2. 201 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB591
  3. 202 PRINT"                                        [146]";
  4. 203 PRINT"                                        [146]";
  5. 204 PRINT"                                        [146]";
  6. 205 PRINT"             ENGLISH CONTEXT            [146]";
  7. 206 PRINT"                                        [146]";
  8. 207 PRINT"               EXERCISE 7               [146]";
  9. 208 PRINT"                                        [146]";
  10. 209 PRINT"[159]                                        [146]";
  11. 210 PRINT"                                        [146]":GOSUB591:GOSUB560
  12. 211 PRINT"          INSTRUCTIONS?  Y/N         [151]T"
  13. 212 GETR$:IFR$<>"Y"ANDR$<>"N"ANDR$<>"T"THEN212
  14. 213 IFR$="Y"THENGOTO400
  15. 214 IFR$="T"THENGOSUB2200
  16. 215 PRINT"[147][159] WHAT IS YOUR NAME?":GOSUB560:GOSUB590
  17. 216 INPUT N$
  18. 217 PRINT"[147][159] AND AWAY WE GO........":GOSUB591:GOSUB500:GOSUB590
  19. 218 GOTO1000
  20. 235 GOSUB591:GOSUB560
  21. 236 PRINT"[154] PRESS SPACE BAR TO CONTINUE [146][155]"
  22. 237 GETU$:IFU$<>CHR$(32)THEN237
  23. 238 RETURN
  24. 240 GOSUB592:GOSUB500
  25. 242 PRINT"[154]        >>>  [211][208][193][195][197][160][194][193][210]  <<<"
  26. 244 GETUI$:IFUI$<>" "THEN244
  27. 246 RETURN
  28. 400 PRINT"[147]":POKE53281,0:POKE53280,0
  29. 431 PRINT"[159] THIS IS A WORD GAME FOR GRADE 4         PUPILS."
  30. 432 PRINT" A SENTENCE WILL BE SHOWN BUT A WORD     WILL BE MISSING.
  31. 434 [153]" A LIST OF WORDS WILL BE SHOWN IN"
  32. 435 [153]" THE MIDDLE OF THE SCREEN."
  33. 436 [153]" CHOOSE THE WORD THAT WILL FINISH"
  34. 437 [153]" THE SENTENCE AND MAKE SENSE."
  35. 441 [153]" AFTER YOU TYPE IN THE WORD, PRESS        RETURN WAIT":[141]235
  36. 443 [153]"OPENLOAD LET'S LOOK AT AN EXAMPLE."
  37. 444 [153]" MARS IS KNOWN AS THE RED  ---- .":[153]"SYS ? OPENONONON"
  38. 446 [141]450:[153]"":[141]235
  39. 447 [153]"ON ? SYSPLANET IS THE CORRECT CHOICE.OPEN  ":[137]490
  40. 450 [153]"OPEN SELECT THE MISSING WORD FROM            THIS LIST:
  41. 452 PRINT"       DIRECT      MODERN
  42. 454 [153]"       DESIGN      PLANET
  43. 456 PRINT"       SURVIVE     OBSERVE
  44. 458 [153]"       BECKON      COMMUNICATE
  45. 460 RETURN
  46. 490 GOSUB235:GOTO215
  47. 499 :
  48. 500 REM <YES>
  49. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  50. 510 POKE54296,15:POKE54277,42:POKE54278,250
  51. 515 POKE54276,23:POKE54273,23:POKE54272,191
  52. 520 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  53. 525 POKE54296,0:RETURN
  54. 530 REM <NO>
  55. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  56. 540 POKE54296,15:POKE54277,18:POKE54278,242
  57. 545 POKE54276,33:POKE54273,4:POKE54272,48
  58. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  59. 555 POKE54296,0:RETURN
  60. 560 REM <BLIP>
  61. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  62. 570 POKE54296,7:POKE54277,42:POKE54278,250
  63. 575 POKE54276,23:POKE54273,23:POKE54272,191
  64. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  65. 585 POKE54296,0:RETURN
  66. 590 FORTM=1TO500:NEXT:RETURN
  67. 591 FORTM=1TO1000:NEXT:RETURN
  68. 592 FORTM=1TO2000:NEXT:RETURN
  69. 593 FORTM=1TO3000:NEXT:RETURN
  70. 999 :
  71. 1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
  72. 1005 C=8:H=0
  73. 1010 FORJ=1TOC
  74. 1015 READA$,B$
  75. 1020 PRINT"[152][147] ED-25 7[156]"TAB(13)""N$TAB(33)"[155]STEP:"H
  76. 1025 PRINT"[153] ";A$
  77. 1030 GOSUB2300:GOSUB560
  78. 1035 INPUT"[158] >>>  ";SX$
  79. 1040 IFSX$=B$GOTO1080
  80. 1045 IFZ=2THENH=H+1:PRINT"[150][145] THE CORRECT WORD IS [158]"B$:GOSUB530:GOSUB592
  81. 1050 IFZ=2THENPRINT"":GOSUB235:GOTO1090
  82. 1055 Z=Z+1:H=H+1
  83. 1060 PRINT"[150]NO. TRY AGAIN![146]":GOSUB530
  84. 1070 GOSUB592:GOTO1020
  85. 1080 PRINT""SPC(27)" YES! [146]":GOSUB500:GOSUB592:H=H+1
  86. 1090 Z=0:NEXTJ
  87. 1099 :
  88. 2000 PRINT"[147]YOU HAVE NOW FINISHED EXERCISE 7.":GOSUB591:GOSUB560
  89. 2005 PRINT"YOU HAVE ANSWERED"C"QUESTIONS"
  90. 2010 PRINT"               IN"H"ATTEMPTS."
  91. 2020 IFH<9THENPRINT"[158]                EXCELLENT!              [146]":GOTO2050
  92. 2030 IFH<10THENPRINT"[159]              GOOD WORK!                [146]":GOTO2050
  93. 2040 PRINT"[150]       TRY HARDER!  DO IT AGAIN!        [146]"
  94. 2050 PRINT"":GOSUB235
  95. 2055 PRINT"[153][147]YOU HAVE A CHOICE:
  96. 2060 [153]"PRESS  R WAIT TO REPEAT EXERCISE 7
  97. 2062 PRINT"PRESS  G [146] TO GO EXERCISE 8
  98. 2064 [153]"PRESS  M WAIT TO GO TO THE DISK MENU
  99. 2068 GETR$:IFR$<>"R"ANDR$<>"M"ANDR$<>"G"THEN2068
  100. 2070 RESTORE
  101. 2072 IFR$="R"THEN200
  102. 2074 IFR$="M"THEN2090
  103. 2080 PRINT"[147] GOING TO EXERCISE 8
  104. 2082 [147]"EXERCISE 8",8
  105. 2084 [138]
  106. 2086 [128]
  107. 2090 [153]"LOAD RETURNING TO THE DISK MENU
  108. 2092 LOAD"MENU",8
  109. 2094 RUN
  110. 2096 END
  111. 2099 :
  112. 2100 GOSUB235:POKES1,0:RETURN
  113. 2110 DATATHE STUCCO WALL HAS A ROUGH ----.,TEXTURE
  114. 2115 DATATHE NURSE'S ---- WAS SMEARED WITH       BLOOD.,UNIFORM
  115. 2120 DATATHE STEAMBOAT BLEW ITS ----.,WHISTLE
  116. 2125 DATATHE ---- OF THE PLANE WAS SPREAD        OVER THE FIELD.,WRECKAGE
  117. 2130 DATAWE HAD GOOD ---- FOR THE PICNIC.,WEATHER
  118. 2135 DATATHERE WERE ---- NOISES COMING FROM      THE BASEMENT.,WEIRD
  119. 2140 DATAWHAT IS YOUR ---- OF THE ACCIDENT.,VERSION
  120. 2145 DATATHE ---- OF THE MOTOR SHOOK ITS         BOLTS LOOSE.,VIBRATION
  121. 2199 :
  122. 2200 PRINT"[147] HERE ARE THE WORDS FOR UNIT 7:[155]":GOSUB560:GOSUB591:
  123. 2210 PRINT"1. THE STUCCO WALL HAD A ROUGH             [158]TEXTURE[155].
  124. 2215 [153]"2. THE NURSE'S SYSUNIFORMLIST WAS SMEARED         WITH BLOOD.
  125. 2220 PRINT"3. THE STEAMBOAT BLEW ITS [158]WHISTLE[155].
  126. 2225 [153]"4. THE SYSWRECKAGELIST OF THE PLANE WAS           SPREAD OVER THE FIELD.
  127. 2230 PRINT"5. WE HAD GOOD [158]WEATHER[155] FOR THE             PICNIC.
  128. 2235 [153]"6. THERE WERE SYSWEIRDLIST NOISES COMING          FROM THE BASEMENT.
  129. 2240 PRINT"7. WHAT IS YOUR [158]VERSION[155] OF THE             ACCIDENT.
  130. 2245 [153]"8. THE SYSVIBRATIONSLIST OF THE MOTOR             SHOOK ITS BOLTS LOOSE.
  131. 2290 GOSUB235:GOTO200
  132. 2299 :
  133. 2300 PRINT" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  134. 2310 PRINT" CHOOSE YOUR ANSWER FROM THE FOLLOWING:[159]"
  135. 2320 PRINTSPC(12)"   WEATHER   ":PRINTSPC(12)"   WHISTLE    "
  136. 2330 PRINTSPC(12)"   VERSION   ":PRINTSPC(12)"   VIBRATION "
  137. 2340 PRINTSPC(12)"   TEXTURE   ":PRINTSPC(12)"   UNIFORM   "
  138. 2350 PRINTSPC(12)"   WEIRD     ":PRINTSPC(12)"   WRECKAGE  ":RETURN
  139. 3500 REM WHC 92:04:07  93:04:04
  140.